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BASIC 


Corrección 
de líneas de 
programa: EDIT 


N muchas ocasiones 
puede suceder que 
cometamos algun 
error al teclear una li- 
nea de un programa. 
Si dicha línea no está 
almacenada aún en 


memoria, es decir, si. 


no hemos pulsado INTRO, todavía esta- 
mos a tiempo de subsanar el error sobre 
la marcha. Todos los ordenadores dispo- 
nen de dos flechas, una hacia la izquier- 
da (+) y otra hacia la derecha (>), que 
permiten mover el cursor sobre la linea 
que estamos tecleando sin borrar nada. 
De este modo podemos situar el cursor 
donde esté el error. A continuación po- 
demos hacer dos operaciones: borrar o 
insertar caracteres. 

Para borrar caracteres los ordenadores 
disponen de una o varias teclas que pue- 
den ser muy distintas según los fabrican- 
tes. En la tabla de la figura 1 podemos ver 
las teclas para borrar que podemos en- 
contrar en los principales ordenadores, 
así como su efecto: 


BORR [Borra el carácter situado a la ¡z- 
quierda del cursor. 
CLR Borra el carácter situado debajo del 
cursor. 
DEL Borra el carácter situado a la iz- 
quierda del cursor. 
Borra el carácter situado a la iz- 
quierda del cursor. 
Borra el carácter situado debajo del 
cursor. 


Borra el carácter situado debajo del 
cursor. 


Borra el carácter situado a la iz- 

quierda del cursor 
CAPS SHIFT 

+ Borra el carácter situado a la ¡z- 

DELETE | quierda del cursor. 


Si queremos insertar caracteres, en el 
AMSTRAD y en el SPECTRUM no tenemos 
más que teclear lo que deseemos y se irá 
insertando automáticamente a la izquier- 
da de la posición en la que se encuen- 
tre el cursor. En el COMMODORE, el IBM y 
el MSX tendremos que pulsar la tecla INS 
antes de proceder a la inserción. 

Por otra parte, puede suceder que de- 
tectemos el error después de haber intro- 
ducido la línea en memoria. En este caso 
tendremos que utilizar el editor para 
corregir la línea. El formato general es el 
siguiente: 


EDIT <número de línea > 


donde número de línea es, evidentemen- 
te, el número de la línea del programa 
que deseamos corregir. Una vez teclea- 
do este comando aparecerá en pantalla 
la línea deseada con el cursor sobre ella 
y, por tanto, podremos corregirla como 
ya sabemos. Al finalizar no tenemos más 
que pulsar INTRO. 

Sin embargo, esta regla general no la 
cumplen ni el SPECTRUM ni el COMMODO- 
RE. En el caso del SPECTRUM podemos ob- 
servar que siempre aparece, sobre la úl- 
tima línea introducida en memoria, un 
puntero (>) entre el número de línea y la 
instrucción. Si queremos corregir una lí- 
nea tenemos que conseguir situar dicho 
puntero sobre ella. Para ello no tenemos 
más que pulsar simultáneamente CAPS 
SHIFT y la flecha para arriba (t) o CAPS 
SHIFT y la flecha para abajo (|) según de- 
seemos que el puntero suba o baje. Una 
vez situado en la línea que queremos 
corregir pulsaremos simultáneamente 
CAPS SHIFT y EDIT y obtendremos la línea 
con el cursor encima, lista para ser corre- 
gida. 


)....... de borrar caracteres en los diferen- 
tes ordenadores. 


En cuanto al COMMODORE, no dispone 
de la función EDIT y para corregir una lí- 
nea podemos subir o bajar el cursor con 
las flechas 1 o | hasta situarlo en la línea 
deseada. A continuación podemos rea- 
lizar las correcciones necesarias, como 
ya sabemos, y finalizar pulsando RETURN. 
Este método de corrección de líneas 
también es válido en el IBM (además de 
EDIT). 


Finalmente hay que decir que si teclea- 
mos dos líneas de programa con el mis- 
mo número de línea, en memoria sólo se 
almacenará la última que hayamos te- 
cleado. Por tanto, si queremos sustituir 
una línea por otra nueva no tenemos más 
que teclear la nueva con el número de lí- 
nea de la antigua. Si por el contrario, sólo 
deseamos suprimir una línea de la me- 
moria no tenemos más que teclear el nú- 
mero de línea y pulsar INTRO. 


' La instrucción IF-THEN. 
Condiciones simples 


Los ordenadores no sólo son capaces 
de ejecutar cálculos a gran velocidad, 
sino que además tienen capacidad para 
tomar decisiones lógicas. 


Esta capacidad es posible gracias a la 
instrucción IF-THEN. Estas dos palabras BA- 
SIC actúan siempre juntas y tienen el si- 
guiente formato: 


IF <condición> THEN <lista de instruc- 
ciones> IF-THEN es equivalente a SI... EN- 
TONCES... por tanto, la instrucción com- 
pleta tiene un significado parecido a “Si 
se cumple la condición entonces ejecu- 
ta la lista de instrucciones”. Pero veamos 
más detenidamente las condiciones. 


Las condiciones pueden ser simples o 
compuestas, sin embargo, de momento 
vamos a centrarnos en la simples. Una 
condición simple tiene el siguiente for- 
mato: 


<1.* miembro> Operador de relación 
<2.* miembro > 


En la tabla de la figura 2 podemos ver 
todos los operadores de relación así 
como su significado. 


Significado 


Igual a 
Distinto de 
Mayor que 
Menor que 
Mayor o igual que 
Menor o igucl que 


[4 Tabla de operadores de relación. 


En cuanto a los miembros que van a 
ambos lados del operador pueden ser 
datos constantes o variables de tipo nu- 
mérico o alftanumérico, así como expre- 
siones matemáticas. 

Veamos algunos ejemplos de condi- 
ciones: 


NS = “ANA” 
PS <>R$ 
F=5"A+BÍ2 


En cualquier caso, ambos miembros de 
la condición deben ser del mismo tipo 
(numérico o alftanumérico). 

En cuanto a la lista de instrucciones si- 
tuada a continuación del THEN, se com- 
pone de una o varias instrucciones BASIC. 

Visto esto ya podemos pasar a ver al- 
gunos ejemplos. El programa 1 sirve para 
determinar si el usuario es mayor de 
edad o no. 


HMMM NAAA 
* EDADES * 


MAMMA AMA 


“CUAL_ES TU EDAD 
a” THEN q “MayhR E EDAD" 
18 THEN PR INT "MENOR DE EDAD" 


EXA 


Las tres primeras líneas del programa 
sirven, como ya sabemos, para poner un 
título de una forma más elegante, al ir en- 
marcando entre asteriscos. La instruc- 
ción de la línea 40 borra la pantalla (en 
el COMMODORE sería 40 PRINT 
CHR$(147)). El INPUT de la línea 50 permi- 
te que el ordenador nos pregunte la 
edad; una vez tecleada la respuesta la 
ejecución continúa en la línea 60, don- 
de el ordenador comprueba si la edad 


Ea BASIC 


tecleada (almacenada en la variable E) 
es mayor o igual que 18. Si se cumple 
esta condición entonces imprime en 
pantalla el mensaje MAYOR DE EDAD. A 
continuación pasa a la línea 70, donde 
comprueba si la edad es menor que 18. 
Evidentemente si se cumplió la condición 
anterior ésta no se cumplirá y, por tanto, 
no se ejecutará la instrucción situada tras 
el THEN. Si el caso fuese el contrario, es 
decir, la edad menor que 18, entonces 
no se verificaría la condición de la línea 
60 y, por tanto, la ejecución del progra- 
ma pasaría directamente a la línea 70 sin 
imprimir en pantalla MAYOR DE EDAD. 

De aquí podemos sacar una conclu- 
sión importante: la lista de instrucciones 
que sigue al THEN sólo se ejecutará si se 
cumple la condición. En caso contrario, 
la ejecución pasará a la línea siguiente 
del programa, si la hay, y si no finalizará 
la ejecución. 

Probemos ahora a sustituir la línea 70 
del programa 1 por la siguiente: 


Podemos observar que en la línea 60 
aparecen dos puntos (:) entre la instruc- 
ción PRINT y la instrucción END. Estos dos 
puntos permiten introducir más de una 
instrucción en una línea de programa. 
Por tanto, podemos teclear varias instruc- 
ciones en una sola línea siempre que es- 
tén separadas con dos puntos. 

La instrucción END hace que la ejecu- 
ción del programa se detenga en la línea 
60 si se cumple la condición. En caso 
contrario, la ejecución continuará nor- 
malmente por la línea 80. 

La instrucción END se encuentra en to- 
dos los ordenadores, excepto en el SPEC- 
TRUM. Sin embargo, esta falta se puede 
suplir con otra instrucción BASIC que ac- 
túa de forma similar: STOP. La diferencia 


FM MIMMAR 

* EDADES * 

5 MMAAARARAAAR 

NPUT "CUAL ES TU EDAD 

F E>=18_THEN PRINT 
NT "MENOR DE EDAD" 


70 PRINT “MENOR DE EDAD“ 


Si ahora ejecutamos el programa y pro- 
bamos a responder, por ejemplo, 16 
aparecerá en pantalla el mensaje ME- 
NOR DE EDAD, como era de esperar. Sin 
embargo, esto no significa que el progra- 
ma funcione, ya que si lo volvemos a eje- 
cutar, pero esta vez tecleando, por ejem- 
plo, 24, en pantalla aparecerá el mensa- 
je MAYOR DE EDAD y debajo MENOR DE 
EDAD, lo que significa que algo falla. 


Evidentemente, si no se cumple la con- 
dición de la línea 60 es porque E es me- 
nor que 18 y, por tanto, no sería necesa- 
ria la segunda condición. Sin embargo, si 
se cumple la condición de la línea 60 ha- 
bría que indicarle al ordenador que 
debe finalizar la ejecución tras imprimir 
MAYOR DE EDAD. Para ello disponemos 
de la instrucción END, de modo que el 
nuevo programa sería el siguiente: 


"havóR DE EDAD": END 


entre END y STOP es que esta última per- 
mite reanudar la ejecución donde se ha- 
bía interrumpido mediante el comando 
CONTINUE. 

De forma similar a como el ordenador 
compara números, puede comparar ca- 
denas de caracteres. Podemos compro- 
barlo tecleando el programa 3. 


ROMANA 


098 
pu 


NOMBRES  * 
AMM 


$ 


COMO TE LLAMAS "¿R$ 


>N$ THEN_PRINT pi ";R$: END 
NT "YA CONOZCO OTRO "; 


353 


SIS 


Por último, el programa 4 pide tres nú- 
meros y los ordena de menor a mayor, en 
base a compararlos dos a dos e inter- 
cambiarlos cuando proceda. 


HE E ES 


Aj TAB(10)¡B¡TAB(20);C 


Con este programa queda claro el uso 
de los dos puntos para construir líneas 
multisentencia (con varias instruccio- 
nes). 

Sólo si se cumple la condición se reali- 
za el intercambio del contenido de las 
variables, ayudándose de una variable 
intermedia X, tal y como podemos ver en 
el ejemplo esquematizado de la figura. 


Esquema de intercambio del contenido de 
las variables A y B utilizando la variable interme- 
dia X. 


Del mismo modo que la máquina orde- 
na números, puede ordenar cadenas de 
caracteres alfabéticamente. No tenemos 
más que introducir los siguientes cam- 
bios en el programa 4: 


— Cambiar A, B,C y X por AS, B$,C$ y 
X$, respectivamente. 

— En la línea 50 cambiar el mensaje 
por DIME TRES NOMBRES y ahora ejecute- 
mos el programa. 


N esta parte tratare- 
mos las operaciones 
aritméticas y lógicas 
que el Z-80 puede 
realizar sobre 8 bits, 
en código natural o 
en BCD (Decimal Co- 
dificado en Binario). 
Ante todo debemos aclarar que la par- 
te del Z-80 encargada de realizar las 
operaciones aritmético-lógicas (ULA) 
puede operar simultáneamente sobre 16 
bits, que es una característica propia de 
un microprocesador de 16 bits. Por ser el 
bus externo de 8 bits, el uso de operan- 
dos de 16 bits necesitará algunos ciclos 
adicionales para realizar las operacio- 
nes; debido a esto se considera al Z-80 
como un microprocesador de 8 bits. 


Suma de dos números 


La principal instrucción es ADD (sumar 
en inglés). Esta suma dos números de 8 
bits, siendo uno de éstos el acumulador. 
La suma de dos números de 8 bits puede 
generar números de 9 bits. 


14010410410 
+ 101041040 


11010140400 
a | 


Acarreo 


El defecto es que tenemos que cargar 
previamente el contenido de la direc- 
ción en el registro HL. 


— Además, existen los direcciona- 
mientos indirectos preindexados con los 
registros IX e IY. 


MAQUINA 2-80 


OPERACIONES CON 8 BITS Y BCD 


ADD A,(IX+d) 
ADD A,(IY+d) 


La otra instrucción existente para reali- 
zar sumas es la ADC (ADd with Carry, su- 
mar con acarreo). Esta instrucción es 
igual que la ADD, sólo que además se su- 
maría el acarreo que pudiera existir de 
anteriores operaciones. 

De esta forma se pueden sumar núme- 
ros de más de 8 bits con instrucciones de 
8 bits. 


10101010101041040 
+ 1040101010101040 


4 01010101010101400 


1401010410 
+ 1010101410 


4 01010400 


140101040 
+ 101010140 


4 01010400 


10101010101010400 


[A Ejemplo de suma de 16 bits utilizando dos su- 
mas de 8 bits con acarreo. 


Los tipos de direccionamientos son los 
mismos que se vieron para ADD. 

Existen instrucciones para incrementar 
en una unidad un determinado registro, 
o una posición de memoria. Si quisiéra- 
mos realizar esto usando la instrucción 
ADD serían necesarias tres instrucciones: 
cargar el dato en el acumulador, incre- 
mentarlo y mover el acumulador con el 


resultado a la posición de la que se to- 
maron los datos. Para resumir esto se uti- 
lizará la instrucción INC. 

Esta instrucción puede usarse con tres 
tipos de direccionamiento: 


— Directo en un registro. 

— Indirecto con el registro HL. 

— Indirecto preincrementado con los 
registros IX e lY. 


' Resta de dos números 


Las instrucciones dedicadas a este co- 
metido son las SUB y SBC. 

La instruceión SUB resta dos números de 
8 bits, siendo uno de ellos el acumulador. 

La instrucción SBC resta dos números, al 
igual que SUB, pero resta también el 
acarreo negativo (Borrow Carry). Hay 
que tener en cuenta que este acarreo es 
negado, y, por tanto, que si se quiere res- 
tar 1, no debe ponerse la bandera del 
carry, CY, a 1, sino a 0. 

Los tipos de direccionamiento que se 
pueden usar son los mismos que se usa- 
ron para ADD y ADC. 

Para completar la analogía con las 
operaciones de sumar aquí también exis- 


te una instrucción de decremento DEC 
que funciona igual que la INC, vista ante- 
riormente, sólo que en vez de sumar una 
unidad, resta una unidad. 

Existe una operación de resta que no 
almacena el resultado en él acumulado: 
CP. Esta sirve para comparar. Al realizar 
se puede afectar a las banderas que in- 
dican si el resultado es cero (Z) y si el re- 
sultado es positivo o negativo (N). Esto 
puede servir para realizar comparacio- 
nes ejecutando instrucciones de salto 
condicional, que se verán más adelante. 

Al restar puede ser necesario cambiar 
el signo del resultado; para ello existen 
dos instrucciones: 


— CPL: Complementa a uno el acumu- 
lador. 

— NEG: Complementa a dos el acumu- 
lador. 


Por último, existen dos instrucciones 
para controlar el estado de la bandera 
de acarreo CY. 


— CCF: Complementa el indicador de 
arrastre, es decir, cambia de estado. 

— SCF: Pone a 1 el indicador de arras- 
tre. 


Grupo aritmético y lógico de 8 bits 


Código Indicadores 


mnemotécnico 


Operación simbólica | S Z 


H 


PVNC 


Códigos 
76 543 210 Hex 


ADD A,r 
ADD A,n 


ADD A,(HL) 
ADD A,(IX+d) 


ADD A,(IY +d) 


INC (1X+d) 


INC (1Y +d) 


DEC m 


A-A+r 
A-A+n 


A+ A+(HL) 
A A+(1X+d) 


A—A+(1Y +d) 


A A+s+CY 


(HL) -(HL)+1 
(IX+d)- 
(IX+d)+1 


(Y +d)- 
(Y +d)+1 


m+-—m-]1 


AX x»x 


A 


x 
x 
x 
Xx 
Xx 
Xx 
Xx 
Xx 
XxX 
Xx 


1 
1 
1 
1 
0 
0 
1 
1 
1 
1 


x 
Xx 
Xx 
Xx 
Xx 
Xx 
Xx 
Xx 
x 
Xx 


v 
v 


v 
v 


Es<euvuu<<< 


oc00-o000=--o 


..£4DOD0O mm... 


10 [000] r 

1 110 
y 

10 [000] 110 

11 011 101 DD 

10 [000] 110 
do 

11 111 101 FD 

10 [000] 110 


do 


11 011 101 DD 
00 110 


de 


11 111 101 FD 


zm 
a 
q 


>rrmgow 


s puede ser un r, n, 
(HL)m (1X+d), (1Y +d) 
como para ADD); los có- 
digos se forman como en 
ADD, pero reemplazando 
el de ADD con los 
bits que se indican 


mes un r, (HL), (IX +d), 
(IY +d) como para INC; 
DEC tiene igual formato 
y estados que INC; el có- 
digo se forma como en 
INC, pero reemplazando 
el de INC por 

[101] 


10 MÁQUINA Z-80 


Grupo aritmético y de control de aplicación general 


Código 
mnemotécnico 


Ajusta el acumulador para 
operaciones de suma y res- 
ta en BCD'” con operandos 
BCD 

A-A 


A-0-A 


CY +-TY 


CY 1 


No operación 

Detiene el Y80 

IFF=0 

IFF=-1 

Selecciona modo 0 para las 
interrupciones 

Selecciona modo 1 para las 
interrupciones 

Selecciona modo 2 para las 
interrupciones 


XA XA XAXXXX 
XA XA XAXXXX 


NoTas: (1) BCD: decimal codificado en binario. 
IFF representa la báscula de habilitación de interrupciones. 
CY representa el indicador de arrastre. 
% indica que las interrupciones no son examinadas al final de 


¡O Operaciones lógicas 


Las instrucciones de operaciones son: 


— AND: Realiza la operación “Y” lógi- 
ca entre los bits de los dos operandos. 

— OR: Realiza la operación “O” lógica 
entre los operandos. 

— XOR: Realiza la operación “O exclu- 
sivo” entre los dos operandos. 


Ajuste decimal del 
acumulador 


111 2F Complementa (a 1) 
el acumulador 
101 ED Cambia de signo 
000 100 44 del acumulador 
(complemento 
a 2) 
Complementa el 
indicador de 
arrastre 
Pone a 1 el indica- 
dor de arrastre 


111 111 3F 


110 111 37 


000 000 00 
110 110 76 
110 011 F3 
111 011 FB 
101 101 ED 
000 110 46 
101 101 ED 
010 110 56 
101 101 ED 
011 110 SE 


DI o El. 


Los tipos de direccionamiento son los 
mismos que para las operaciones de 
suma. 


Por último, hay que indicar que para 
realizar las operaciones en BCD es nece- 
sario ejecutar antes la instrucción DAA 
para activar el modo decimal. 


' Programa: 


Mastermind 
para Spectrum 


STE primer programa 
de este tomo nos va a 
permitir jugar al famo- 
sísimo juego del MAS- 
TERMIND. Lo más pe- 
culiar de este juego 
es que no es el típico 
MASTERMIND de nú- 
meros, sino que es de letras. Esto lo hace 
más difícil. Aparte de esta dificultad, nos 
encontramos con que las letras pueden 
repetirse, lo cual lo hace casi imposible. 
Esto es mejor de esta manera, ya que asi 
se consigue que el juego no se vuelva 
aburrido, pues es necesario pensar más 
y mejor para llegar al final. 


HMASTERMINMO 


MUERTOS = O HERIDOS 


de 


RARAS 
ARM AAA 

RRRRA RARA 
EEE O) 


* 
* 

+ * 
+ + 
+ + 
+ + 
+ + 
JO 
nm - 


PULSA LA LETRA DESEADA (A-Z5 


[A Comienzo de una partida de Mastermind. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Para aquellas personas que no sepan 
en qué consiste el juego, damos a conti- 
nuación una breve explicación de las 
normas. 

El juego consiste en adivinar una serie 
de seis letras que ha pensado el ordena- 
dor. La ordenación de estas letras es 
aleatoria, esto es, no tienen por qué for- 
mar ninguna palabra. Si la forman es por 
casualidad. 


MASTERMIMO 


MUERTOS= SE HERIDOS= 1 


PULSA LA LETRA DESEADA (A-Z) 


[A A punto de acabar la partida. 


Para adivinar la serie de letras que ha 
elegido el ordenador, vamos proponien- 
do nuestra propia serie de letras. Cada 
vez que terminemos una serie el ordena- 
dor nos dirá el número de muertos y de 
heridos que tenemos. Pero ¿qué significa 
un muerto y un herido? Cada vez que 
acertemos una letra y ésta esté coloca- 
da en la misma posición en la que la tie- 
ne el ordenador, entonces dicha letra 
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será un muerto. Si hemos acertado la le- 
tra pero no la posición, entonces es un 
herido. Hay que decir que hay que adivi- 
nar no sólo la serie de letras, sino tam- 
bién la ordenación que tienen dichas le- 
tras. 


1 


MASTERMIND 


MUERTOS= S HERIDOS= 2 


[ A 
[ 4 
n F 
fr 4 
r 

[ (af) 
1 rt 
r 

(=) 


LA COMBINACION CORRECTA ERA 
GO ARTO 


[A Cuando agotamos nuestras posibilidades, 
sino hemos acertado, el ordenador nos 
dice la serie que había pensado. 


El jugador sólo dispone de 9 oportuni- 
dades para adivinar la secuencia. 


10 REM ASSIS SOMOS SS ISIOIOSOIOIOIOIVJOK 
20 REM xxx MASTERMIND Adtototo 
30 REM AdoMSSSS SIS dSISISJSIOIOlVIVIOIOKK 
40 REM dado POR dISIdOIOIOIOOK 
B0 REM AaaaSSOIO ISSO IAISJSIOIOIOlOlJOJAK 
60 REM *x*x*x* CARLOS DORAL xo 
TO REM AMOS lOOlOIOIOKK 
80 BORDER 7 
90 PAPER 7 
100 INK O 
110 CLS 
120 DIM a$(6,1) 
130 DIM g$(6,1) 
140 DIM j$(6,1) 
150 LET 1=10 
160 LET b$="MASTERMIND" 
170 FOR c=1 TO L 
180 FOR f=0 TO 9+1 
190 PRINT AT 10,£;” "; PAPER 
2; INK 6;b$(1 TO 1) 
200 NEXT f 
210 LET 1=1-1 
220 NEXT c 
230 PRINT AT 12,0;" Pulsa las 
teclas A-Z para se- leccionar tu 
s 6 letras y consi- gue adivinar 
las de la maquina. " 


240 
250 
PARA 
260 
240 
270 
280 
290 
300 


OUT 254, INT (RND*255) 
PRINT AT 21,5;"PULSA SPACE 
JUGAR" 

IF INKEY$<>" " THEN GO TO 


OUT 254,7 

CLS 

RANDOMIZE PEEK 23672 

PRINT AT 0,11; FLASH 1; INK 


7; PAPER 1; BRIGHT 1;"MASTERMIN 


p" 
310 


320 
330 


PRINT AT 3,0;"MUERTOS= 0"”;" 
HERIDOS= 0” 
FOR f=1 TO 6 

LET a$(f)=CHR$ (65+INT (R 


NDx*x25)) 


340 
350 
360 
370 
380 
390 
kk 
400 
410 
420 
430 
440 
450 
460 
470 


480 


NEXT f 
FOR f=1 TO 6 
LET g$(f)=as$(f) 
NEXT f 
FOR f=5 TO 13 
ERENT ATA a xk 
ERE" 
NEXT f 
LET x=14 
LET y=13 
FOR w=1 TO 9 
LET he=0 
LET mu=0 
FOR f=1 TO 6 
PRINT AT y,x; INVERSE 1; 


PRINT AT 16,2;"PULSA LA 


LETRA DESEADA (A-Z)" 


490 


PRINT AT 3,9; OVER 1;" " 


¿AT 3,24;," * 


500 
510 
520 
530 


POKE 23658, 8 

LET k$=INKEY$ 

IF k$="" THEN GO TO 500 
IF CODE k$<65 OR CODE k$ 


>90 THEN GO TO 500 


540 
k$ 
550 
560 
570 
580 
590 
600 
610 


PRINT AT y,x; INVERSE 1; 


LET j$(f)=k$ 

LET x=x+2 

FOR p=1 TO 50 

NEXT p 
NEXT f 
FOR f=1 TO 6 

IF a$(f)=j$(f) THEN LET 


as(f)="0": LET ¿J9(£)="0": LET m 
u=mu+1: PRINT AT 3,9; FLASH 1;mu 
: PRINT AT y,f+4; INVERSE 1;"X" 


620 
630 
640 
650 
=c+1 
660 
670 
680 
690 
700 
On 


NEXT f 
LET c=0 
FOR f=1 TO 6 
IF a$(f)="0" THEN LET ce 


NEXT f 
IF c=6 THEN GO TO 990 
LET c=1 
FOR f=1 TO 6 
IF j$(c)<>"0" AND a$(f)< 
AND j$(c)=a$(f) THEN LET j 


$(c)="0": LET a$(f)="0": LET he= 


he+1: 


"¡AT 
710 
720 


PRINT AT y,c+4; FLASH 1;” 
3,24;he 

NEXT f 

LET c=c+1 


730 IF c<>7 THEN GO TO 690 
740 LET y=y-1 

750 LET x=14 

760 LET c=0 

770 FOR f=1 TO 6 

780 LET a$(f)=8$(f) 

790 NEXT f 

800 NEXT w 

810 PRINT AT 16,0; INVERSE 1;” 
NO LO HAS CONSEGUIDO, LO SIENTO 


820 FOR F=30 TO O STEP -3 

830 BEEP .20,F 

840 NEXT F 

850 PRINT AT 16,0; FLASH 1;"” 
LA COMBINACION CORRECTA ERA 
860 LET c=1 

870 FOR f=11 TO 21 STEP 2 

880 IF a$(c)="0" THEN PRINT 
ATTO ES"k" 

890 IF a$(c)<>"0" THEN PRINT 
AT 18,f;a$(c) 

900 LET c=c+1 

910 NEXT f 

920 FOR F=1 TO 1000 

930 NEXT F 

940 PRINT AT 18,11;" 


950 PRINT AT 16,0;"QUIERES JUGA 
R OTRA PARTIDA("; FLASH 1;"S"; F 
LASH 0;"/"; FLASH 1; INVERSE 1;" 
N"; FLASH O; INVERSE 0;"”)?" 

960 IF INKEY$="S" OR INKEY$="s" 

THEN GO TO 280 

970 IF INKEY$="N" OR INKEY$="n" 

THEN GO TO 1160 

980 GO TO 960 

990 REM o Ro 
1000 REM x*x*x* FINAL DEL JUEGO xxx 
1010 REM AddoaSISlOISISISlSISSISlSJSSllOIOIOK: 
1020 LET c=1 
1030 FOR f=14 TO 24 STEP 2 
1040  PRINT AT y,f; BRIGHT 1; P 
APER 7; INK 1;g$(0) 

1050 LET c=c+1 
1060 NEXT f 
1070 PRINT AT 16,0; FLASH 1;" 

- LO CONSEGUISTE . 

1080 FOR F=0 TO 30 STEP .3 
1090 BEEP .001,f 
1100 NEXT f 
1110 PRINT AT 19,2; "QUIERES OTRA 

PARTIDA (S/N)?" 

1120 BEEP .02, INT (RND*50) 

1130 IF INKEY$="N" OR INKEY3="n" 

THEN STOP 
1140 IF INKEY$="S" OR INKEY$="s" 

THEN GO TO 280 
1150 GO TO 1120 


A continuación se da el organigrama lo para que sea más fácil (o más difícil), 
del programa para que podáis entender para que dé más oportunidades. 
mejor cómo funciona e incluso modificar- 
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NO 


si 


CODE K$<GS 
OR 
CODE K$>99 


(m Programa: Gusano loco 


El último programa de este fascículo es 
un juego. En él tenemos que intentar que 
un gusano que se mueve por la pantalla 
se coma el máximo número de frutas que 
pueda. El programa aparece cuando, 
después de comerse una fruta, el gusano 
aumenta su longitud. Las teclas que tie- 
nes que utilizar para mover el gusano por 
la pantalla son: 


O - Izquierda Q - Arriba 
P - Derecha A - Abajo 


Tienes que tener cuidado con no cho- 
carte con las paredes ni contigo mismo, 
pues en ese caso perderías una de las 
tres vidas de las que dispones. 


KARA AAA AAA 


00000000000000 
o 


x= 
= 


/00000000000000000000000000 


ARES ERA AAA AAA 


¿ 
¿ 
: 
Es 
| 
; 


lA Pantalla del juego «Gusano loco». 


El programa cuenta con cinco niveles 
distintos de dificultad entre 0 y 4 (0 = muy 
rápido. 4 = muy lento). Aparte de estos 
cuatro niveles, dentro del programa hay 
definidas cuatro pantallas distintas. El ju- 
gador pasa de una a otra cuando se ha 
comido 15 frutas en la pantalla en la que 
está actualmente. Cada pantalla es más 
difícil que la anterior. 


KAxXAA 
xo0000 


*o 
*o 


xAxAX 


N 
x 
odg 
RAE AA AAA 


* 
- 
* 
* 
* 
- 
* 
* 
n 
” 
-* 
* 
+ 
- 
- 
”* 
”* 
* 
* 
* 
. 


$ Do9no9onodpaoo cadena 
A A IIA A AD II A 


Pantalla del juego «Gusano loco». 


FUNTUACIONES DE HOY 


DOLIDO” 

A pp JJ pp 
SOM 
ISI333 SS. 


jala) 
Ez 


ural 


Nu 
[A Al final del juego podemos introducir 
nuestro nombre si tenemos una puntuación alta. 


100 REM ASS aSlO ld OlO OOOO Jal jolojok 
110 REM * JUEGO DEL GUSANO LOCO x* 
111 REM * * 
112 REM * POR Fco. Morales *x 
113 2 REM ARMOR SIISE IOIOIOIOIOIOIOIOIdIOIOK 
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114 REM 
115 REM ASSIM dOlO OOO jodo lOlOjojOlOK 
116 REM * (c) Ed. Siglo Cultural +* 


117 REM * (6) 1987 k 
120 REM add lo ld lOloldlojoloor 
130 REM 


140 REM ASSSSS ISSO S EII ISISIS OOO jOIOIOOJololololoR 
150 REM * PANTALLA DE PRESENTACION * 
160 REM ASS OOOO lol ISlola look 
170 REM 

180 CLS 

190 PRINT “GUSANO LOCO” 

200 PRINT *----=-=------ pe 

210 PRINT:PRINT:PRINT 

220 PRINT "USA LAS SIGUIETES TECLAS: " 
230 PRINT:PRINT 

240 PRINT "O - IZQUIERDA” 

250 PRINT "P -- DERECHA" 

260 PRINT "Q - ARRIBA” 

270 PRINT "A - ABAJO” 

280 PRINT:PRINT 

290 INPUT "QUE NIVEL QUIERES (0-4) "¿NN 
300 IF NN<0 OR NN>4 THEN GOTO 290 

310 LET NN=25*NN 

320 REM 

330 REM ASSSS SISSI IESO IIS llo 
340 REM * INICIALIZACION DEL PROGRAMA * 
350 REM AMOS OOPS IOlSlSlO lll jojo ldlOlOIOIOIOR 
360 REM 

370 CLS 

380 PRINT "ESPERA UN MOMENTO" 

390 DIM A$(10):DIM S(10):DIM F$(4) 

400 FOR I=1 TO 10 

410 LET A$(1)="S. Cultural" 

420 LET S(I)=100 

430 NEXT I 

440 LET NV=1:LET VV=3 

450 DIM A(40,23) 

460 LET F$(1)="8" 

470 LET F3(2)=" 
480 LET F$(3)=" 
490 LET F$(4)=" 
500 REM 


B10- REM ASSIM dOaOlO lalo IaIOJOIOJOK 

520 REM * PROGRAMA GENERAL * 

5830 REM Ada SISSI SSSlSlolddlololjok 

540 REM 

550 FOR I=1 TO 40 

560 FOR J=1 TO 23 

570 LET A(I,J)=0 

580 NEXT J 

590 NEXT I 

600 LO=0 

610 CLS 

620 LET X=10:LET Y=10 

630 LET X1=10:LET Y1=10 

640 LET X3=10:LET Y3=10 

650 GOSUB 710 

660 ON NV GOSUB 900,960, 1100, 1360 

670 GOSUB 1720 

680 GOSUB 2040 

690 FOR J=1 TO NN:NEXT J 

700 GOTO 670 

710 REM 

720 REM ASSSISIO SISSI lSjOlSSOOlololojOlok 
730 REM * DIBUJO DE LOS LIMITES DE LA PANTALLA * 
740 REM AMOS Sala joldlalOIO ISI la lala IOIOIOIOJoIoIoK 
750 REM 

760 FOR I=1 TO 40 


ne 


770 PRINT "x"; 

7830 LET A(I,1)=1 

790 NEXT 1 

800 FOR I=2 TO 22 

810 PRINT "*x";TAB(40);"x*" 
820 LET A(1,I)=1 

830 LET A(40, 1)=1 

840 NEXT I 

850 FOR I=1 TO 40 

860 PRINT "x"; 

870 LET A(1,23)=1 

880 NEXT 1 

890 RETURN 

900 REM 

910 REM AMARO OOOO Ido lolo lojolok 
920 REM * PANTALLA No. 1 * 
930 REM AMES Old lojoldjolojoloK 
940 REM 

950 RETURN 

960 REM 

970 REM Ada SlO O ldlolololOjoloJoK 
980 REM * PANTALLA No. 2 * 
990 REM AMOS OSOS lO lOlOlOlolojoJOK 
1000 REM 

1010 FOR I=5 TO 19 

1020 LOCATE 1,8 

1030 PRINT "x" 

1040 LET A(8,1I)=1 

1050 LOCATE 1,33 

1060 PRINT "x" 

1070 LET A(33,1)=1 

1080 NEXT 1 

1090 RETURN 

1100 REM 

1110 REM SMS S SIS IOOIOIOlOIOJOJOJOK 
1120 REM * PANTALLA No. 3 x*x 
1130 REM ASS S ld 
1140 REM 

1150 FOR I=8 TO 33 

1160 LOCATE 5,1 

1170 PRINT "x*x" 

1180 LET A(1,5)=1 

1190 LOCATE 19, I 

1200 PRINT "*" 

1210 LET A(I,19)=1 

1220 NEXT I 

1230 FOR I=6 TO 18 

1240 LOCATE 1,8 

1250 PRINT "x*";TAB(33);"x*" 
1260 LET A(8,I)=1 

1270 LET A(33,1)=1 

1280 NEXT I 

1290 FOR I=11 TO 13 

1300 LOCATE 1,8 

1310 PRINT "";TAB(33);" 
1320 LET A(8,1)=0 

1330 LET A(33,1)=0 

1340 NEXT I 

1350 RETURN 

1360 REM 

1370 REM AMMSMSOSIOSISloIOlOlolOlolok 
1380 REM * PANTALLA No. 4 *x 
1390 REM AMMSSOSISlOOIOIOOIOIOIOIOIOK 
1400 REM 

1410 GOSUB 1100 

1420 FOR I=10 TO 14 

1430 LOCATE I,19 

1440 PRINT "aoalotooK"" 

1450 FOR J=19 TO 24 
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1460 LET A(J,I)=1 

1470 NEXT J 

1480 NEXT I 

1490 RETURN 

1500 REM 

1510 REM Aso MSN SISSI SISSI 

1520 REM * CHOQUE CONTRA LA PARED * 

1530 REM AxMaSSS RSS ISSO OlolOJOIOJOK 

1540 REM 

1550 CLS 

1560 PRINT "TE HAS CHOCADO CONTRA LA PARED. " 
1570 PRINT "LA PROXIMA VEZ HAS DE TENER MAS CUIDADO” 
1580 IF VV=1 THEN GOTO 2450 

1590 LET VWF VV-1 

1600 GOTO 550 

1610 REM 

1820 REM AMM OSMOSIS SISSI IOOIOIOJOIOK 
1630 REM * CHOQUE CONTRA UNO MISMO x*x 
1640 REM AMS SOSIOS SISSI IIS Jolotok 
1650 REM 

1660 CLS 

1670 PRINT "TE HAS CHOCADO CONTIGO MISMO” 
1680 PRINT "QUE TE PASA. (ESTAS TONTO?" 
1690 IF VV=1 THEN GOTO 2450 

1700 LET VV=VYV-1 

1710 GOTO 550 

1720 REM 

1730 REM AMAS SIO SNS lOlO lolo 

1740 REM * COLOCACION DE FRUTAS * 

1750 REM AdMRMSSS OSO ISlSlOlO ISO joolOlOK 

1760 REM 

1770 IF RND>.1 THEN RETURN 

1780 LET V=INT(RND*4+1) 

1790 LET X2=INT(RND*40+1) 

1800 LET Y2=INT(RND*23+1) 

1810 IF A(X2,Y2)<>0 THEN RETURN 

1820 LET A(X2,Y2)=V+1 

1830 LOCATE Y2,X2:PRINT F$(V) 

1840 RETURN 

1850 REM 

1880 REM AMOROSOS IIOIO JOR: 

1870 REM * COMPROBACION DE CHOQUE * 

1880 REM Ad SS SOS IdIOO Olot 

1890 REM 

1900 IF A(X,Y)=0 THEN RETURN 

1910 IF A(X,Y)=-1 THEN GOTO 1610 

1920 IF A(X,Y)=1 THEN GOTO 1500 

1930 LET SC=SC+15*A(X, Y): LO=A(X, Y)*3 
1940 IF NC<>15 THEN LET NC=NC+1: RETURN 
1950 CLS:LET NC=0 

1960 PRINT "MUY BIEN. HAS TERMINADO CON LA FASE ";NV 
1970 IF NV=4 THEN GOTO 2010 

1980 PRINT "PREPARATE PARA LA SIGUIENTE” 
1990 LET NV=NV+1 

2000 GOTO 550 

2010 PRINT "TAMBIEN HAS TERMINADO CON EL JUEGO" 
2020 FOR I=1 TO 3000:NEXT I 

2030 GOTO 2450 

2040 REM 

2050 REM ASS O ISSO 

2060 REM * MOVIMIENTO DEL GUSANO * 

2070 REM ASS MOSSOS ISI lO lOJOlOIOR: 

2080 REM 

2090 LET B$-=:INKEYS$ 

2100 IF B$<>"P" AND B$<>"0” AND B$<>"Q” AND B$<>"A" THEN LET B$=C$ 
2110 LET C$=B$:LET Xi=X:LET Y1=Y 

2120 IF B$="P" THEN LET X=X+1 

2130 IF B$="0" THEN LET X=X-1 

2140 IF B$="Q" THEN LET Y=Y-1 


2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


IF B$="A" THEN LET Y=Y+1 
GOSUB 1860 

LOCATE Y1,X1 

PRINT "o" 

LOCATE Y,X 

PRINT "0" 

LET A(X, Y)=-1 


IF LO=0 THEN GOTO 2250 

LET LO=LO-1 

RETURN 

LOCATE Y3,X3 

PRINT * 

LET A(X3,Y3)=0 

IF A(X3+1,Y3)=-1 THEN LET X3=X3+1]: RETURN 
IF A(X3-1,Y3)=-1 THEN LET X3=X3-1: RETURN 
IF A(X3,Y3-1)=-1 THEN LET Y3=Y3-1:RETURN 
IF A(X3,Y3+1)=-1 THEN LET Y3=Y3+1: RETURN 
RETURN 

REM 

REM AMOO SOS lolololololo lok 


REM * (OTRA PARTIDA? x* 
REM AMOS OOOO jojojo lokek 
REM 
PRINT:PRINT 
PRINT "(OTRA PARTIDA? (S/N) 
LET A$=INKEY$: IF A$="" THEN GOTO 2400 
IF A$="S" OR A$="s" THEN LET NV=1:LET VV=3:LET SC=0:GOTO 550 
IF A$="N" OR A$="n" THEN GOTO 2960 
GOTO 2400 
LET LO=LO-1 
REM 
REM all joldjojololodok 
REM * TABLA DE GANADORES * 
REM AMOS OSOS lll loJojolojokok 
REM 
FOR I=1 TO 1000 
NEXT 1 
CLS:PRINT "PUNTUACIONES DE HOY" 
PRINT:PRINT "=============== ++ n-===-- 
FOR I=4 TO 17 

LOCATE 1,1 

PRINT "!";TAB(40);"!” 
NEXT I 
PRINT "===> ++. S 
_IF SC>=S(10) THEN LET S(10)=SC:LET A$(10)=CHR$(254) 
FOR I=1 TO 10 

FOR J=1 TO I 

IF S(J)<S(I) THEN LET A=S(J):LET S(J)=S(1):LET S(1I)=A:LET B$=A$(J):LE 


T A$(J)=A4$(1):LET A$(I)=B5$ 


2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 


NEXT J 4 
NEXT I 
FOR I=1 TO 10 
IF A$(1)=CHR$(254) THEN LET PP=I 
-NEXT I 
IF PP=0 THEN GOTO 2700 
ARMENIO o Ad ES 
FOR I=1 TO 10 
LOCATE 5+1,3 
PRINT A$(I);TAB(30);5(1) 
NEXT 1 
LOCATE 5+PP,3,1 
LET AS(PP)="" 


2760. IF PP=0 THEN GOTO 2850 


2770 
2780 
2790 


FOR I=1 TO 15 
LET A$=INKEY$: IF A$="" THEN GOTO 2780 
IF A$=CHR$(8) AND 1>1 THEN PRINT CHR$(29);"."”;¡CHR$(29);:LET I=I-1:LET A$(PP 


)=MIDS(AS(PP),1,1) 


2800 


IF A$=" " THEN GOTO 2830 


2810 IF AS$=CHR$(13) THEN LET I=15:GOTO 2840 
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2830 PRINT A$;:LET AS(PP)=A$(PP)+A$ 
2840 NEXT I 

2850 LOCATE 1,1,0 

2880 LOCATE 20,1 

2870 PRINT "<<< PULSA UNA TECLA >>>" 
2880 LET A$=INKEY$: IF A$="" 
2890 LOCATE 20,1 

2900 GOTO 2330 

2910 REM . 

2920 REM Aaa OOOO lolo jokok 
2930 REM * FIN DEL JUEGO x 
2940 REM ddaSOOS Ol ElalojolojOjOK 
2950 REM  “ 

2960 CLS 

2970 PRINT "HASTA PRONTO” 
Z2OBO! PRINTD "neon on 
2990 FOR I=1 TO 10 

3000 PRINT 

3010 NEXT I 

3020 END 


El programa es válido para todos los or- 
denadores, excepto el SPECTRUM. Las 
modificaciones que hay que hacer para 
que funcione en ordenadores distintos 
del IBM son: 


COMMODORE: 


180 PRINT CHR$(147) 

370 PRINT CHR$(147) 

610 PRINT CHR$(147) 

1020 POKE 214, l-1:POKE 211, 7 
1050 POKE 214, l-1:PODE 211, 32 
1160 POKE 214, 4:POKE 211, |-1 

1190 POKE 214, 18:POKE 211, 1-1 

1240 POKE 214, l-1:POKE 21 

1300 POKE 214, |-1:POKE 21 

1430 POKE 214, l-1:POKE 21 

1550 PRINT CHR$(147) 

1660 PRINT CHR$(147) 

1770 IF RND(1)>.1 THEN RETURN 

1780 LET V = INT (RND (1)'4 + 1) 

1790 LET X2 = INT (RND (1)'40 + 1) 

1800 LET Y2 = INT (RND (1923 + 1) 

1830 POKE 214, YS—1: POKE 211, X2—1: 
PRINT FS(V) 

1950 PRINT CHR$(147): LET NC =0 

2090 GET B$ 

2170 POKE 214, Y1—1: POKE 211, X1—1 
2190 POKE 214, Y—1: POKE 211, X—1 


1 
le E 
di E 
1, 18 


2820 IF A$<"0" OR A$>"z" THEN GOTO 2780 


THEN GOTO 2880 


2250 POKE 214, Y3—1: POKE 211, X3—1 
2400 GET AS: IF AS =”” THEN GOTO 2400 
2520 PRINT CHR$(147); “PUNTUACIONES 
DE HOY” 

2550 POKE 214, |-1: POKE 211, 0 

2560 PRINT “!”; TAB(39); “!” 

2710 POKE 214, 4 +1: POKE 211, 2 

2740 POKE 214, 4 + PP: POKE 211, 2 
2780 GET AS: IF AS =”” THEN GOTO 2780 
2850 REM 

2860 POKE 214, 19: POKE 211, 0 

2880 GET AS: IF AS =”” THEN GOTO 2880 
2960 PRINT CHR$(147) 


AMSTRAD: 


1020 LOCATE 8,1 
1050 LOCATE 33,1 
1160 LOCATE 1,5 
1190 LOCATE 1,19 
1240 LOCATE 8,1 
1300 LOCATE 8,1 
1430 LOCATE 19,1 
1830 LOCATE X2,Y2 
2170 LOCATE X1,Y1 
2190 LOCATE X,Y 
2250 LOCATE X3,Y3 
2550 LOCATE 1,1! 
2710 LOCATE 3,5 +1 
2740 LOCATE 3,5 + PP, 1 


2860 LOCATE 1,20 
2890 LOCATE 1,20 


MSX: 


1020 LOCATE 8,1 
1050 LOCATE 33,1 
1160 LOCATE 1,5 
1190 LOCATE 1,19 
1240 LOCATE 8,1 
1300 LOCATE 8,1 
1430 LOCATE 19.1 


1770 IF RND (1)>.1 THEN RETURN 
1780 LET V = INT (RND (1)'4 + 1) 
1790 LET X2 = INT (RND (1)'40 + 1) 
1800 LET Y2 = INT (RND (1)'23 + 1) 
1830 LOCATE X2,Y2 

2170 LOCATE X1,Y1 

2190 LOCATE X,Y 

2250 LOCATE X3,Y3 

2550 LOCATE 1,1 

2710 LOCATE 3,5 +1 

2740 LOCATE 3,5 + PP, 1 

2860 LOCATE 1,20 

2890 LOCATE 1,20 


IO Especificación 
de los datos 
de entrada 


OS datos de entrada 
aun proceso pueden 
estar en varios «so- 
portes» diferentes 
(elementos físicos so- 
bre los que están 
contenidos los da- 
tos): primariamente, 
los datos estarán reflejados sobre un do- 
cumento (papel) que haya sido relleno 
por alguna persona o impreso con algu- 
na máquina: posteriormente estos datos 
se pasarán a un soprte magnético (cinta, 
diskette, disco...); en ocasiones, los da- 
tos de entrada a un proceso serán los de 
salida de otro anterior y podrán obtener- 
se sobre soporte magnético (y ya depu- 
rados, claro está). 

En este último caso, en el diseño del 
proceso de que se trata poco habrá que 
especificar (excepto el formato de los 
datos) y, normalmente, la única tarea a 
realizar es reproducir los diseños prepa- 
rados para el proceso anterior del que se 
obtienen los datos. 

En cuanto a la preparación de los da- 
tos de entrada en su soporte primario (so- 
bre papel), lo que nos interesa aquí es 
solamente subrayar que se debe prever 
espacio suficiente para la cómoda trans- 
cripción de los datos y que el diseño del 
impreso correspondiente debe tener en 


TECNICAS DE ANALISIS 


DISEÑO DE SISTEMAS (III) 


cuenta el orden y distribución que los da- 
tos tendrán en el fichero de entrada que 
se creará. Más adelante, abordaremos la 
problemática general de los documen- 
tos de soporte de datos (en cuanto a su 
racionalidad, optimización de espacio, 
orden para evitar errores, etcétera), por 
lo que aquí no profundizamos en este 
tema. 

La situación más usual se produce 
cuando los datos contenidos en un docu- 
mento cualquiera (no mecanizado) han 
de ser introducidos (por teclado) para la 
creación de un fichero de entrada. Es im- 
portante que, en el diseño del sistema, 
se analicen con cuidado y se describan 
estos ficheros, los «campos» que los com- 
ponen, sus relaciones, etc., para evitar, 
en el momento de la programación, erro- 
res, dudas y pérdidas de tiempo. 

El formato y características de los fiche- 
ros de entrada a un proceso se suelen re- 
flejar en un documento como el que se 
presenta a continuación, a modo de 
ejemplo. 

En él se suelen incluir los siguientes 
apartados: 


N.* de fichero. Es una identificación co- 
dificada que complementa y concreta el 
nombre de fichero que se da en el enca- 
bezamiento del documento. 

Utilidad. Breve descripción de la utili- 
dad y contenido (desde el punto de vis- 
ta funcional) del fichero de que se trata. 

Soporte físico. Se indica el medio en 
que se presenta el fichero: cinta magné- 
tica, diskette, etc. 


... Drive» a utilizar ...... 
. N.% de volúmenes 


«Drive» a utilizar. Cuando el medio en 
que va grabado el fichero debe «montar- 
s2» en una unidad concreta. 

N.? de volúmenes. Es importante el n.? 
de volúmenes que contiene (o puede lle- 
gar a contener) un fichero determinado, 
si es multivolumen, para su identificación 
y control y pcr razones de seguridad. 

Secuencia de registros. Cuando en un 
fichero hay registros de varios tipos, con- 
viene indicar la secuencia, si la hay, en 
que dichos registros se van a presentar. 
Además, los registros de un tipo concre- 
to es usual que aparezcan en un orden 
predeterminado (quizá, incluso, clasifi- 
cados) y puede ser útil conocer cuál es 
este orden. 

Tamaño del fichero. Se suele indicar el 
n.? de registros previsto para el fichero, 
de tal modo que con el tamaño del re- 
gistro en bytes —que se da a continua- 
ción— se puede establecer el tamaño 
total del fichero. A veces, en sucesivas 
versiones del fichero, o con su evolución 
en los posteriores procesos, el fichero 
crece: es útil, en este caso, dar una esti- 
mación del volumen máximo previsto. En 
otro apartado («% cambio» en el diseño 
que se da) se indica cómo va a evolucio- 
nar el tamaño del fichero. 


Por otro lado, conviene describir cada 
tipo de registro de los que se pueden 
componer el fichero (en nuestro impreso 


Tamaño del fichero: 
N.2 de regist. inicial ........................... E AA 
N.2 de regist. previsto .... 
A 


.. Secuencia de registros .................. 


Nombre de registro 


DESCRIPCION DE CAMPOS 


se han previsto tres). Para cada registro 
se indican los siguientes datos: 


Nombre de registro. Para su fácil identi- 
ficación. 

Frecuencia. Que, dependiendo de los 
casos, puede indicar la proporción de 
registros de este tipo que aparecen en el 
fichero (si éste tiene una composición 
bastante permanente en el tiempo) o la 
frecuencia con que estos registros apa- 
recen en este fichero: puede haber da- 
tos diarios o datos que aparecen una vez 
a la semana en un fichero diario, etc. 

Volumen. Volumen que representa este 
registro dentro del conjunto del fichero 
(porcentualmente o en valores absolu- 
tos). 

Tamaño del registro. Se suele dar en 
«bytes». 

Código. Clave o código con el que se 
puede distinguir a este registro dentro 
del fichero. 


Además, conviene indicar (para el fi- 
chero en su conjunto) el ciclo de vida 
previsto y las condiciones bajo las que se 
puede disponer del fichero. Suele incluir- 
se también una indicación de los proce- 
dimientos de seguridad y controles esta- 
blecidos para este archivo. Se anota en 
el apartado correspondiente, el(los) pro- 
gama(s) que utiliza(n) estos datos en su 
proceso. 
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El apartado más interesante del docu- 
mento de definición de un fichero de en- 
trada, es el que se destina a la descrip- 
ción de cada uno de los campos que in- 
cluyen los registros del archivo. 

Para cada campo se suelen especifi- 
car los siguientes apartados: 


Nombre del campo correspondiente, 
para su identificación. 

Registro al que pertenece, si hay varios 
en el fichero. 

Formato; es usual utilizar un código (A: 
altanumérico; B: binario; P: decimal em- 
paquetado; U: decimal desempaqueta- 
do; E: en coma flotante; D: ídem en do- 
ble precisión, etc.) o bien directamente 
dar el formato con el que deberá ser re- 
presentado en el programa correspon- 
diente, según el lenguaje de programa- 
ción utilizado. 

Tamaño del campo (normalmente en 
bytes). 

Posición dentro del registro (se da la 
posición del primer carácter del campo 
contando desde el comienzo del regis- 
tro). 

Nivel; n.? de nivel, si existe una estruc- 


tura en niveles de los campos (un cam- 
po se subdivide en varios, cada uno de 
los cuales se puede subdividir, etc.). 

N.? de repetición, si el campo se repite 
varias veces a su nivel, como sucede en 
ocasiones. 

V; se suele marcar aquí si el n.* de re- 
peticiones es variable. 

Ceros; si el campo contiene ceros (en 
vez de blancos) cuando no tiene conte- 
nido. 

Signo; en los campos numéricos hay 
que indicar si el campo tiene signo y de 
qué tipo (en la 1.* posición del campo 
por la izquierda; en la posición más a la 
derecha del campo; en la primera posi- 
ción libre por la izquierda —signo flotan- 
te—, etc.). 

Verificación. Conviene indicar si hay 
que hacer algún tipo de control o verifi- 
cación sobre ese campo. En el documen- 
to correspondiente se reseña en detalle 
el tipo de verificación a establecer. 

Descripción. Se reserva espacio para 
dar una descripción adicional del cam- 
po, o para incluir comentarios sobre su 
contenido, formato, etc. 


N los capítulos ante- 
riores hemos descrito 
las estructuras de da- 
tos más frecuentes 
que aparecen en los 
programas de orde- 
nador, así como los ti- 
pos de datos que se 
suelen utilizar. Ahora vamos a comenzar 
a describir qué es lo que se puede hacer 
con esos datos, es decir, las instruccio- 
nes ejecutables. Comenzaremos por la 
asignación de valores a variables. 

Como se sabe, una variable no es otra 
cosa que un nombre al que se puede 
asignar uno o varios valores, dispuestos 
en una estructura determinada. Normal- 
mente, en todos los lenguajes de progra- 
mación, los nombres de las variables no 
pueden elegirse sin restricción alguna, 
sino que es preciso someterse a ciertas 
reglas, que en general son lo bastante 
amplias como para que el número de 
nombres diferentes que se pueda cons- 
truir sea prácticamente ilimitado. 

En BASIC, por ejemplo, el nombre de 
una variable debe comenzar por una le- 
tra, que puede o no ir seguida por cierto 
número de letras, cifras o el punto deci- 
mal, pudiendo terminar en uno de los 
cuatro caracteres especiales de defini- 
ción de tipo: $,%,!,+. Las variables que 
terminan en $ tienen automáticamente 
el tipo «string» y contienen datos literales. 
Las que terminan en % sólo pueden 
adoptar valores enteros. Las que termi- 
nan en ! pueden tomar valores con deci- 
males en precisión normal. Las que termi- 
nan en 4 tomarán valores con decimales 
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en precisión doble. Finalmente, las que 
no terminan en ninguno de estos carac- 
teres suelen ser, por omisión, variables 
reales que adoptan valores con decima- 
les de precisión normal, a menos que se 
haya utilizado alguna de las instruccio- 
nes de definición de tipo (DEFINT, DEFDBL 
o DEFSTR) mencionadas en los capítulos 
anteriores. 

El número de caracteres que puede te- 
ner el nombre de una variable BASIC es 
variable, siempre que se mantenga den- 
tro de ciertos límites, que dependen del 
intérprete o compilador utilizado. En el in- 
térprete de BASIC del IBM PC, por ejem- 
plo, el nombre de las variables puede te- 
ner hasta 40 caracteres. Esto significa 
que el número de nombres distintos que 
se puede definir es prácticamente infini- 
to y rebasa todas las posibilidades prác- 
ticas de un programa. Además, las letras 
minúsculas se consideran equivalentes a 
las mayúsculas y se traducen a ellas au- 
tomáticamente. 

En otros intérpretes, el límite es más pe- 
queño. En el SPECTRUM, por ejemplo, el 
número máximo de caracteres en el 
nombre de una variable es igual a 2. En 
el caso de las variables literales, como el 
segundo carácter del nombre tiene que 
ser un dólar, sólo podremos elegir 26 
nombres diferentes en un programa de- 
terminado. Con las variables de valor nu- 
mérico, en cambio, dispondremos de 26 
x 26 posibilidades para los nombres de 
dos letras, pues los dos caracteres del 
nombre pueden ser letras. Además, po- 
dremos definir también 26 nombres de 
una sola letra, lo que hace un total de 
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702 nombres diferentes. Hay otra restric- 
ción adicional: si la variable numérica es 
un vector o una matriz (una serie o una ta- 
bla), su nombre sólo podrá tener una le- 
tra, por lo que sólo podrá haber 26 nom- 
bres diferentes para estas estructuras. 
Como se ve, estos números son lo bastan- 
te pequeños como para que sea posible 
que al construir un programa para el 
SPECTRUM nos quedemos sin nombres de 
variables de algún tipo o estructura. 

Veamos algunos ejemplos de nombres 
válidos de variables BASIC, junto con el 
tipo al que pertenecen: 


real normal 
real normal 
real doble 


real normal 
literal 
literal 
entero 


De todos los nombres anteriores, sólo el 
primero y el quinto serán válidos en el 
SPECTRUM. Todos ellos serán correctos, 
sin embargo, en la mayor parte de los in- 
térpretes y compiladores del lenguaje 
BASIC. En cambio, los siguientes nombres 
son incorrectos en cualquier traductor de 
dicho lenguaje, pues no cumplen las 
condiciones generales indicadas más 
arriba: 

lA $C ABC/ ¡HOLA! 

En PASCAL, los nombres de variables 
deben empezar por una letra, que pue- 
de o no ir seguida por un número varia- 
ble de letras o cifras y a veces por el ca- 
rácter de subrayado. La longitud máxima 
permitida varía según el compilador, 
aunque suele reducirse a 8 caracteres. 
Los nombres más largos no son inválidos. 
Simplemente se ignoran los caracteres 
sobrantes. Existe, sin embargo, la restric- 
ción de que ciertas «palabras reserva- 
das» no pueden utilizarse como nombres 
de variables. Mencionaremos las siguien- 
tes, entre otras muchas: 


array and not or to goto if begin end 


Son, por tanto, nombres válidos en PAS- 
CAL, los siguientes: 


Juan caso 1 caso—uno 

Como se ve en el primer ejemplo, mu- 
chos compiladores admiten que se mez- 
clen letras mayúsculas y minúsculas en el 
mismo nombre. En cambio, son nombres 
incorrectos los siguientes: 


lA $C ABC/ ¡HOLA! 

En APL, los nombres de variables pue- 
den comenzar con una letra y continuar 
o no con letras o cifras. Muchas veces se 
admiten también los caracteres de sub- 
rayado y super-rayado, aunque no en 
primer lugar. Las letras minúsculas son 
distintas de las mayúsculas, por lo que los 
nombres «a» y «A» corresponderán a va- 
riables diferentes. También serán distin- 
tas las cuatro variables siguientes: 


AB Ab aB ab 


él número máximo de caracteres en un 
nombre varía según el intérprete. En el 
caso del intérprete APL/PC de IBM, este 
número debe ser menor o igual que 12. 
Los nombres más largos son admitidos, 
pero los caracteres sobrantes se ignoran. 

Además de nombre, las variables tie- 
nen valor. Sin embargo, así como el nom- 
bre es intrínseco a la variable, el valor 
puede cambiar de un momento a otro. 
(Es por esta razón, precisamente, por lo 
que se las llama «variables»). Por tan- 
to, debe haber alguna manera de cam- 
biar dicho valor o dárselo por primera 
vez. Las instrucciones que realizan esta 
operación se denominan «instrucciones 
de asignación», que existen en todos los 
lenguajes de programación de alto nivel 
y tienen una forma muy semejante en to- 
dos ellos. 

Una instrucción de asignación tiene 
siempre la siguiente estructura: 


variable símbolo valor 


donde «variable» es el nombre de la va- 
riable; «símbolo» es un carácter o grupo 
de caracteres que indica que quere- 
mos realizar una asignación de valor; fi- 
nalmente, a la derecha de dicho simbo- 
lo se coloca el valor o el conjunto de va- 
lores que deseamos asignar a la varia- 
ble. 


En BASIC, el símbolo de las instruccio- 
nes de asignación es el signo igual (=). 
Además, se añade a la izquierda de la 
instrucción de asignación la palabra re- 
servada LET. Finalmente, el valor que se 
le asigna a la variable debe ser un esca- 
lar o un «string» (es decir, sólo puede 
asignarse un valor único o una cadena 
de caracteres en cada instrucción de 
asignación). Resumiendo: la instrucción 
de asignación BASIC tiene la forma gene- 
ral siguiente: 


LET variable = valor 


La palabra LET es exigida por algunos 
intérpretes (como el del SPECTRUM), pero 
puede ser omitida en otros (la mayoría) 
por lo que la instrucción puede reducir- 
se, casi siempre, a: 


variable = valor 
Veamos algunos ejemplos: 


LET X=10 
LET Y(3)=12 
LET I=1+1 


Obsérvese que, si estamos utilizando 
uno de los intérpretes de BASIC que per- 
miten eliminar la palabra LET, la tercera 
instrucción de nuestro ejemplo toma una 
forma muy rara: «l=1+1». Cualquiera que 
tenga unas nociones elementales de ál- 
gebra comprende que, si esta expresión 
fuera una expresión algebraica, no ten- 
dría solución, pues no existe ningún nú- 
mero que sea igual a la suma de sí mis- 
mo más uno. En realidad, lo que ocurre 
es que el signo igual en BASIC no tiene la 
misma significación que en el álgebra. La 
instrucción anterior no quiere decir que | 
sea igual a l+1, sino que tomamos el va- 
lor que tenía | (Cualquiera que sea), le su- 
mamos uno, y el resultado se lo asigna- 
mos a | como nuevo valor, que sustituye 
al anterior. No es difícil comprender esto, 
pero puede costarle cierto trabajo al 
principiante, y hace necesaria esta ex- 
plicación. Por esta razón, otros lenguajes, 
como PASCAL y APL, han procurado eli- 
minar el problema eligiendo otro símbo- 


lo, distinto del signo igual, para represen- 
tar la asignación de valor a una variable. 

En PASCAL, por ejemplo, se utiliza como 
símbolo de asignación la combinación 
de los dos puntos con el signo igual. Las 
mismas asignaciones que vimos más arri- 
ba para el caso del BASIC se expresarían 
en PASCAL así: 


En APL el símbolo de asignación es una 
flecha dirigida hacia la izquierda. Vea- 
mos cómo se expresarían en este lengua- 
je las asignaciones anteriores: 


Los ejemplos anteriores nos permiten 
ver cómo se realiza la asignación de va- 
lores a las variables cuando se trata de 
un valor único. Incluso vemos cómo se 
puede realizar la asignación a uno solo 
de los elementos de una serie o vector. 
Pero ¿qué ocurre si queremos asignarle 
valor a todas y cada una de las compo- 
nentes de una serie o de una tabla de 
datos? 

En BASIC, por ejemplo, tenemos que es- 
cribir uno o varios bucles, con objeto de 
que la asignación se realice siempre ele- 
mento a elemento. Supongamos que 
queremos definir una serie de diez datos 
cuyo nombre será X y cuyos valores han 
de ser los números del 1 al 10. Suponga- 
mos que también queremos construir una 
tabla llamada Y, de nueve filas y nueve 
columnas, con los valores de la tabla de 
sumar, es decir, tal que el valor del ele- 
mento (i; j) sea igual a (i+j). El siguiente 
programa lo conseguiría: 
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DIM X(10), Y(9,9) 


FOR J=1 TO 9 
60 LET Y(1,J)=I+J 
NEXT J:z NEXT 1 


Obsérvese el programa anterior: la ins- 
trucción 10 define las dimensiones de la 
serie X y de la tabla Y. Las instrucciones 
20 y 30 forman un bucle que utiliza como 
índice la variable escalar | para asignar 
el valor deseado a cada uno de los ele- 
mentos de X. Finalmente, las instruccio- 
nes 40, 50, 60 y 70 forman un doble bu- 
cle que asigna a cada elemento de la ta- 
bla Y el valor correspondiente a la tabla 
de sumar. 


En PASCAL, un programa equivalente al 
anterior sería muy semejante. Veámoslo: 


program TABLAS; 
var 
iz integer; 
x:z array[1..10] of integer; 


y: arrayl1..9,1..9] of integer; 
begin 
for iz=1 to 10 do x[lil:=i; 
for iz=1 to 9 do 
for j:=1 to 9 do 
yli,jli=i+ ; 


end. 


En APL, sin embargo, es posible asignar 
a una serie o tabla todos los datos que 
debe contener con una sola instrucción. 
Veamos cómo se realizarían las dos asig- 
naciones anteriores: 


X+110 
Y-(19)0.+(19) 


Como se recordará por capítulos ante- 
riores, la primera instrucción asigna a X 
la serie de los números de 1 a 10. La se- 
gunda asigna a Y la tabla de sumar de 
nueve filas y nueve columnas. 


LOGO 


' Jugando 


con el comando 
de repención 


ASTA este momento, 
el conjunto de co- 
mandos que hemos 
puesto dentro de la 
lista del comando RE- 
PITE han sido avanzar 
y girar. Hay que tener 
en cuenta que en 
esta lista podemos poner cualquier pala- 
bra (comando) que la tortuga conozca, 
incluso otro REPITE. Vamos a ver varios 
ejemplos. 

Supongamos que queremos escribir 
nuestro nombre varias veces en la pan- 
talla. La orden sería: 


REPITE 4 UEES "PERAJ 


y nos quedaría: 


También podemos escribir varias veces 
los nombres de nuestros deportes favori- 
tos. El comando seria: 


? REPITE 2 [ES (FUTBOL TENIS MOTOS1]3 


y obtendríamos como resultado: 


A 


> REPITE 2 [ES [ FUTBOL TENIS MOTOS] ] 


FUTBOL TENIS MOTOS 
FJTBOL TENIS MOTOS 
a 


Ahora vamos a dibujar la siguiente figura: 


Como vemos, está formada por 8 cua- 
drados que van estando girados cada 
uno respecto al anterior. Como sabemos, 


so LOGO 


la orden para dibujar un cuadrado es: Si ahora deseamos pintar 2 circunferen- 
cias de esta forma: 


? REPITE 4 [AV 35 GD 901] 


Luego para hacer la figura las órdenes 
serían: 


7? REPITE 8 [REPITE 4 [AV 35 GD 90] GD 451] 


2 HT 
de manera que aparezcan y desaparez- 
can varias veces, escribiriamos lo si- 
guiente: 


? REPITE 6 [MT BP Gl 90 REPITE 36 [AV 2 GD 10] REPITE 36 [AV 4 GI 


103 OTI 


' Os proponemos ———— línea en blanco 
¿COMO ESTAS? 
1. Hazel siguiente dibujo, teniendo en BIEN, GRACIAS 
cuenta que cada circunferencia está j 
desplazada con respecto a la anterior. ——— linea en blanco 


4. Haz que la tortuga pinte la palabra 
LOGO en la pantalla, y que aparezca y 
desaparezca varias veces. 


2. Pinta una figura parecida a la de 
los 8 cuadrados girados, pero que tenga 
en su lugar 12 pentágonos. 

3. Sabiendo que para dejar una línea 
en blanco (sin que la tortuga escriba 
nada) hay que poner: 


ES () 


dale las órdenes necesarias para que es- 
criba lo siguiente: 

¿COMO ESTAS? 

BIEN, GRACIAS 


m Cómo enseñar cosas nuevas 
a la tortuga 


Hasta ahora la tortuga sólo entiende y 
ejecuta aquellas órdenes que le escribi- 
mos usando los comandos. Pero nuestra 
tortuga también es capaz de aprender 
palabras nuevas y saber lo que significan 
para después ejecutarlas. 

Así, por ejemplo, cada vez que quere- 
mos que pinte un cuadrado hemos de 
decirle: 


? REPITE 6 (AV 30 GD 90) 


pero tenemos la posibilidad de enseñar- 
le a la tortuga cómo se hace un cuadra- 
do. 

Para enseñarle a la tortuga a hacer co- 
sas nuevas se utiliza el comando: 


PARA “nombre 


donde nombre es una palabra nueva 
para la tortuga, pero que a partir de aho- 
ra va a entender. 

A continuación hemos de poner un 
conjunto de comandos que la tortuga ya 
conozca y que le diga cómo se hace esa 
cosa nueva. 

Por último, para decirle que ya hemos 
terminado de enseñárselo hemos de po- 
ner: 


FIN 


Ahora vamos a enseñar a la tortuga a 
hacer un cuadrado: 


Como vemos, después de pulsar la te- 
cla RETURN, en lugar de salir el signo de 


interrogación (?) que indica que la tortu- 
ga está preparada para recibir órdenes, 
nos sale un signo de mayor (>). Este sig- 
no sirve para decirnos que la tortuga está 
esperando a que la enseñemos a hacer 
algo, en nuestro caso un cuadrado. 

Por tanto, ponemos: 


A 


> PARA CUADRADO 
>REPITE 4 [AV 0 0001 


y como ya no se necesitan más coman- 
dos para hacer un cuadrado, escribimos 
FIN para decirle que ya hemos acabado: 


En este momento, tras pulsar RETURN, la 
tortuga nos indica que ya ha aprendido 
a hacer un cuadrado escribiéndonos un 
mensaje en la pantalla: 


CUADRADO DEFINIDO 
O, 
ACABAS DE DEFINIR CUADRADO 


y diciéndonos que espera que le demos 
una orden (aparece la interrogación). 

Al conjunto de comandos o palabras 
que le enseñan a la tortuga cómo hacer 
algo se le llama PROCEDIMIENTO, ya que 
un procedimiento es un método o serie 
de reglas para realizar alguna cosa. 

Pues bien, una vez definido nuestro pro- 
cedimiento CUADRADO, vamos a ver si, 
efectivamente, la tortuga sabe hacerlo o 
no. Para ello, escribimos: 


Ahora tú puedes enseñar a la tortuga 
muchas de las figuras que has dibujado 
antes. La tortuga las aprenderá y no las 
olvidará hasta que apagues el ordena- 
dor. 


Por ejemplo, vamos a hacer que la tor- 
tuga aprenda a dibujar estrellas. Si escri- 
bimos: 


PARA 


"ESTRELLA 


y 


REPITE S [AV 60 GD 720/51 
> OT 
> FIN 


ESTRELLA DEFINIDO 


? ESTRELLA 


nos quedará: 


La tortuga ha desaparecido de la pan- 
talla porque al enseñarle a dibujar la es- 
trella le hemos dicho que se oculte (co- 
mando OT). 


Cómo hacer que la tortuga 
olvide cosas 


Ol 


Si al definir un procedimiento, es decir, 
enseñar a la tortuga a hacer una cosa 
nueva para ella y mandarle que lo eje- 
cute nos damos cuenta de que no dibu- 
ja lo que nosotros queremos, significa 
que nos hemos equivocado al escribir 
algo y tenemos que cambiarlo. 

Por ahora, lo que vamos a hacer es de- 
cirle que se olvide de eso nuevo que le 
hemos enseñado y definir el procedi- 
miento otra vez. 

Para borrar un procedimiento, es decir, 
que la tortuga se olvide de cómo se 
hace, usaremos el comando: 


BORRA “nombre 
o en abreviatura 
BO “nombre 


siendo mombre el nombre del procedi- 
miento que queremos borrar. 

Si en lugar de querer borrar un solo pro- 
cedimiento, deseamos borrar varios pon- 
dremos sus nombres en una lista: 


BO (nombre1 nombre2 ... nombren) 


Veamos un ejemplo. Supongamos que 
queremos dibujar un triángulo asi: 


Si definimos un procedimiento: 


? PARA "TRIANGULO 
> REPITE 3 [AV 45 GD 120] 


> FIN 


y mandamos a la tortuga que lo ejecute: 
? TRIANGULO 
nos saldrá: 


2 TRIANGULO 
21 


que no es lo que nosotros queremos. 

Por tanto, nuestro procedimiento no 
nos vale y tenemos que borrarlo de la 
memoria de la tortuga: 


Para comprobar que, efectivamente, 
lo ha olvidado si le decimos ahora: 


? TRIANGULO 
nos responderá con un mensaje de error: 


Entonces, en este momento podemos 
enseñarle de nuevo a hacer el triángulo, 
pero correctamente: 


? PARA "TRIANGULO 


> GI 90 


> REPITE 3 [AV 45 GD 120] 


> FIN 


Por último, si en lugar de querer borrar 
uno o varios procedimientos, deseamos 
eliminar todos, no hace falta dar cada 
uno de sus nombres, sino que podemos 
utilizar el comando 


BOTODO 


que le indica a la tortuga que se olvide 
de todas las cosas nuevas que ha apren- 
dido. 


PASCAL 


| Variables 
locales de 
un procedimiento 


A hemos menciona- 
do que la estructura 
de los procedimien- 
tos y funciones es 
muy similar a la de los 
programas, y que en- 
tre esas similitudes se 
encuentra la posibili- 
dad de tener su propia zona de defini- 
ción de datos «locales». 

Las variables locales de un procedi- 
miento son iguales en casi todos los as- 
pectos a las del programa principal, de- 
nominadas a su vez «globales» por poder 
utilizarse en cualquier zona del progra- 
ma, sea la parte principal, un procedi- 
miento o una función. Solamente hay dos 
diferencias: 

1. Las variables locales de cada pro- 
cedimiento sólo se pueden utilizar dentro 
de él (y de los procedimientos que éste 
pudiera a su vez tener dentro); para el 
programa principal y para los demás 
procedimientos es como si no existieran. 
Esto se cumple también con todas las de- 
más cosas definidas localmente dentro 
del procedimiento. 

2. Sólo toman la porción de memoria 
que necesitan en el momento en que se 
utiliza el procedimiento. Cuando se ter- 
mina de ejecutar éste, el espacio de me- 
moria ocupado por sus variables queda 
libre para cualquier otra cosas, como, 
por ejemplo, para las variables locales 
de otro procedimiento que se ejecute a 
continuación. Por ello, no es posible con- 
servar datos en una variable local entre 
dos utilizaciones de un procedimiento. 


Una vez se sale de éste, se pierden todos 
sus datos locales. Si se necesitara guar- 
dar algún dato entre ejecuciones sucesi- 
vas habría que utilizar variables globales. 
Estas últimas se dice que son variables 
«estáticas», pues tienen su espacio de 
memoria asignado permanentemente; 
por el contrario, las variables locales se 
dice que son «dinámicas». 

(NOTA: En otros lenguajes como el Mo- 
dula-2 o el PL1, es posible tener variables 
locales estáticas, e incluso esta posibili- 
dad existe en algunas versiones de PAS- 
CAL como, por ejemplo, con Turbo-Pas- 
cal por medio de las denominadas 
«tHped constants».) 

Si cuando se está traduciendo la zona 
correspondiente a un procedimiento, el 
compilador encuentra el nombre de una 
variable, busca primero a ver si la en- 
cuentra entre las definidas localmente; 
de encontrarla, es ésa la que utiliza. Sólo 
sino la encuentra pasa a buscar entre las 
variables globales del programa. 

Por ello, si una variable local tiene el 
mismo nombre que una global, la que se 
utilizará siempre en el procedimiento 
será la variable local. Al traducir la zona 
correspondiente al programa principal, 
no hay duda posible, pues la local es 
como si no existiera. 

(Cuando se trata de un procedimiento, 
dentro de un procedimiento, dentro de 
otro, etc., busca primero entre las loca- 
les propias; si no la encuentra, busca en- 


tre las del procedimiento de orden supe- 


rior —que a su vez son globales para el 
anterior—, y así sucesivamente hasta 
acabar buscando entre las del programa 
principal.) 

El uso de variables locales permite 
ahorrar memoria, pues las mismas zonas 
son utilizadas por variables de diferentes 
procedimientos, según el momento. Sin 


embargo, las principales ventajas son 
otras: 

— Por un lado, evitan que, si el proce- 
dimiento altera (erróneamente o no) el 
contenido de una variable, esto afecte al 
resto del programa, cosa que podría su- 
ceder si la variable fuera global. 

— Porotro lado, permiten escribirproce- 
dimientos autosuficientes, es decir, que 
no necesitan que se les prepare en la 
zona de definición de datos del progra- 


program Contar; 


procedure Contarial0; 
var N: integer; (%* Esta variable es local %) 


begin 
end; 
begin 
clrscr; 
end; 


procedure Despedida; 
begin 


begin 
Presentacion; 
Contariai0;- 
Despedida 

end. 


' Paso de parámetros por valor 


Si se necesitase que un procedimiento 
manejara datos pertenecientes al pro- 
grama principal (o al procedimiento en 
que estuviera inserto, caso de que fuese 
de menor nivel), una posible forma sería 
utilizar la o las variables globales en que 


program CuentaVariable; 


var Tope: integer; 


for N:= 1 to 10 do writeln (N:3) 
procedure Presentacion; 
(X o PAGE 


writeln ("Esto cuenta de 1 a 10.”); 
writeln (”Y si no se lo creen, miren:”) 


writeln (”Yo casi nunca miento. 


(X Aquí está el programa principal %) 


ma ninguna variable especial para ellos. 
Así, procedimientos escritos y probados 
en alguna ocasión para otros programas 
pueden ser utilizados sin más que copiar 
su descripción. De esta manera se ahorra 
una enorme cantidad de trabajo y se evi- 
tan posibles errores. 

El programa que viene a continuación 
es similar al último que vimos, pero con 
un procedimiento para la fase de cuen- 
ta: 


Adiós.”) 


estuvieran guardados esos datos llamán- 
dolas por su nombre y cuidando, por su- 
puesto, de que no hubiese variables lo- 
cales con igual denominación. 

Partiendo del programa Contar, vamos 
a hacer otro que realice una cuenta des- 
de 1 hasta un valor introducido por tecla- 
do en la variable global TOPE. 


procedure ContariaTope; 
integer; (% Esta variable es local %) 


var N: 
begin 


for N:= 1 to Tope do writeln (N:3) 


se PASCAL 


begin 


readin (Tope); 
ContariaTope 


end. 


Si embargo, este método obliga a que 
el programa principal y el procedimien- 
to se pongan de acuerdo en la variable 
a utilizar, como sucede con Tope, y ésta 
tendrá que llamarse igual dentro y fuera 
del procedimiento. Así, la «autosuficien- 
cia», o facilidad de utilizar en un nuevo 
programa procedimientos que se hicie- 
ron en otro momento sin más que copiar- 
los, resulta bastante menor. 

Además, no podríamos suministrar al 
procedimiento los resultados de expre- 
siones ni los datos contenidos en otras 
variables diferentes a las convenidas sin 
guardarlos previamente en éstas cada 
vez que hubiera que ejecutarlo. 

Por otra parte, tampoco se pueden uti- 
lizar variables locales normales para pa- 
sar los datos, pues ya se ha dicho que el 
programa principal no tiene acceso a 
ellas; al existir éstas en memoria sólo du- 
rante la ejecución del procedimiento, no 
sería posible guardar los datos en ellas 
justo antes de ejecutarlo. 

Para solucionar esto, existe en PASCAL 
la posibilidad de transferir datos al tiem- 
po que se llama al procedimiento por 
medio de ciertas variables locales espe- 
ciales. 

Para ello, en su cabecera y a continua- 
ción del nombre se deben definir las va- 
riables locales en las que se van a guar- 
dar los datos a transferir en el momento 
de la llamada, describiendo lo que se 
denomina «lista de parámetros». 

Esto se hace de manera idéntica «a 
como se definen las variables en la zona 
de descripción de datos, pero poniendo 
el conjunto de definiciones entre parén- 
tesis. Cabeceras válidas serían por tanto: 


procedure Koke (Ene: integer); 
procedure Bibi (Max: integer; C: char); 


(k Por esta vez, pasamos de prólogo *) 
write ("Contar del uno al...? ”); 


(kx Pasamos de despedida 1%) 


procedure Gon ( l,J,K: integer; 
B: boolen ); 


Las variables descritas en la lista de pa- 
rámetros son unas variables locales más, 
con la única particularidad de que se 
guardan datos en ellas justo en el mo- 
mento de llamar al procedimiento. 


Los datos a guardar se deben indicar 
entre paréntesis y separados entre sí por 
comas, a continuación del nombre del 
procedimiento, cada vez que se utilice 
éste. Deben ir exactamente en el mismo 
orden en que están definidas las varia- 
bles en la cabecera. En la lista de pará- 
metros a transferir pueden aparecer tan- 
to constantes como variables o expresio- 
nes siempre que el tipo coincida con el 
indicado en la cabecera. Por ello: 


Koke (1) 


haría que Ene valiera 1 nada más comen- 
zarse a ejecutar Koke; con 


Bibi (5 + 4, succ('A”)) 
Max valdría 9 y C valdría 'B'. Por último, 
Gon (Tope, Cuenta, 3, 2 = 3) 


sería también correcto y con ello | y J to- 
marían los valores de Tope y Cuenta en 
el momento de la llamada, K valdría 3 y 
B sería FALSE. 


Sin embargo, 
Koke (true) y Bibi (13) 


producirían errores en la compilación 
pues Bibi precisa dos parámetros y el tipo 
del parámetro de Koke es INTEGER. 


Escribamos un programa que haga di- 
ferentes cuentas, cada vez más largas: 


var Tope: integer; 


var N: integer; 
begin 


end; 


begin 


begin 


writeln 
end; 


ContarHasta (1000) 
end. 


Aquí se observa una de las ventajas más 
importantes de los procedimientos: 

Si el procedimiento ContarHasta hubie- 
ra sido escrito por otro programador, no- 
sotros no necesitaríamos conocer abso- 
lutamente nada de sus interioridades 
para utilizarlo. Bastaría con copiarlo y sa- 
ber, primero, que se llama ContarHasta y, 


segundo, que precisa de un único pará- 
metro de tipo INTEGER que indica el final 
de la cuenta. Nada más. Por ello es una 
buena costumbre describir con un co- 
mentario para qué sirve un procedimien- 
to al lado de su cabecera. 


'O Paso de parámetros por 
== nombre 


Supongamos ahora que queremos es- 
cribir un procedimiento que lea de tecla- 
do la edad de una persona, comproban- 
do que no es errónea, y la guarde en la 
variable que se desee. En principio po- 
dría ser algo como: 


procedure LeeEdad (E: integer); 


var Ok: boolean; 
begin 
write (”Edad: ”); 
repeat 
readln (E); 


Ok:= (0 <= E) and (E <=, 120); 


Program VariasCuentas; 


procedure ContarHasta 
(X Cuenta desde 1 hasta el valor de Final %) 


(Final: integer); 


for N:= 1 to Final do write (N:4) 


for Tope:= 1 to 10 do 
(kx Contar con límite creciente: %*) 


ContarHasta (Tope); 


writeln (*Y ahora la buena:”); 


if not Ok then 

writeln ("No vale. 
until Ok 

end; 


Repita.”) 


Entonces para utilizarlo haríamos: 


LeeEdad (EdadPadre); 
LeeEdad (EdadHijo); 


Sin embargo, debemos recordar que la 
variable E descrita en la cabecera es lo- 
cal y que, por tanto, por mucho que cam- 
biemos su valor, EdadPadre y EdadHijo 
permanecerán inalteradas. 

Podríamos escribir LeeEdad de manera 
que él mismo guardara el dato en la va- 
riable EdadPadre poniendo, por ejem- 
plo, EdadPadre:=E como última instruc- 
ción, pero está claro que entonces sólo 
serviría para esa variable. 

Para solucionar estas situaciones está 
lo que se denomina transferencia de pa- 
rámetros por nombre. 

Utilizando esta modalidad, las varia- 
bles descritas en la cabecera no son lo- 
cales del procedimiento y cada vez que 
se ejecuta éste, la porción de memoria 
que les corresponde es precisamente la 
de las variables que aparecían en la lis- 
ta de parámetros en el momento de la 
llamada. 


eS PASCAL 


En otras palabras, la variable de la ca- 
becera es en cada llamada exactamen- 
te la misma que figura en la lista de pa- 
rámetros, de manera que si modificamos 
su valor modificamos también el de esta 
última. 

Para indicar que un parámetro se trans- 
fiere por nombre, se debe poner delante 
de su nombre la palabra reservada VAR: 


Procedure Almu ( 


begin 


N:= O 
end; 


begin 


end. 


Si quitáramos ahora la palabra VAR de 
la cabecera de PoneraCero, comproba- 
ríamos que Número no cambia de valor. 
Por otra parte, si en el programa pusiése- 
mos la instrucción PoneraCero (2+2), se 
produciría un error al compilar, cosa que 
no sucedería si no estuviera la palabra 
VAR. 

Por tanto, para que el procedimiento 
LeeEdad funcionara correctamente bas- 
taría con que su cabecera fuese la si- 
guiente: 


procedure LeeEdad (var E: integer); 


Hay una ventaja adicional en el uso del 
paso de parámetros por nombre que 
debe utilizarse con sumo cuidado. 

Cuando el dato a transferir ocupa mu- 
cha memoria (dentro de poco estudiare- 


program LLamadaPorNombre; 
var Numero: integer; 


procedure PoneraCero (var N: integer); 
(kx Pone a cero la variable transferida X) 


writeln ("La variable transferida valía ”,N); 
writeln ("Pero desde ahora valdrá 0”); 


Numero:= 7; (* Numero ahora vale 7 Y) 
writeln (”Número=”, Numero); 

Poneralero (Numero); 
writeln e 


en este procedimiento, J,K y C se trans- 
fieren por nombre y los demás por el mé- 
todo habitual. 

Evidentemente, cuando un dato se 
transfiere por nombre, sólo puede apare- 
cer una variable en la lista de paráme- 
tros; no están permitidas ni constantes ni 
expresiones. Veamos un ejemplo: 


I: integer; 
var J,K: integer; 
B: boolean; 
var C: char ); 


(k Pero ahora vale O XK) 


mos tipos de datos que pueden hacerlo), 
al utilizar el procedimiento por el méto- 
do habitual se crea una variable local de 
las mismas dimensiones, con lo que las 
necesidades de memoria son muy gran- 
des. Además, cada vez que se utiliza se 
produce una transferencia automática 
de los datos a la variable local y como 
son muchos el programa puede llegar a 
hacerse más lento. 

Pasando los datos por nombre, la por- 
ción de memoria que se utiliza es la mis- 
ma del original y, por tanto, no se nece- 
sita tanta memoria ni emplear tanto tiem- 
po en copiar los datos. Eso sí, existe el 
riesgo de que por una mala programa- 
ción alguno de los datos originales resul- 
te alterado de manera involuntaria al 
ejecutarse el procedimiento. 


m Introducción 


L sistema operativo 
PICK es un sistema 
operativo multiusua- 
rio que está orienta- 
do a la gestión de in- 
formación que fun- 
ciona en tiempo real. 
Entre sus característi- 
cas más sobresalientes está la posibili- 
dad de multiprogramación (ejecución 
de varios programas al mismo tiempo) y 
la gestión de memoria virtual. 

En varios aspectos se parece a UNIX, ya 
que ambos fueron desarrollados original- 
mente para miniordenadores, y están 
emigrando al entorno de los microorde- 


Conta- 
bilidad 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS: PICK 


nadores. La primera versión comercial 
de PICK para miniordenadores apareció 
en 1973, y en 1979 se dispuso de la pri- 
mera versión para un microordenador. 

Tanto UNIX como PICK son muy poten- 
tes, a la vez que complicados, ya que 
proporcionan un gran número de coman- 
dos y utilidades. Sin embargo, PICK difie- 
re de UNIX en su entorno de trabajo. 
Mientras que el primero está mejor adap- 
tado para las aplicaciones de gestión, el 
segundo se concibió como una herra- 
mienta para el desarrollo de software y, 
por tanto, es más adecuado para aplica- 
ciones de tipo científico, así como de in- 
geniería. 


[A Las tareas de gestión propias de una empresa se pueden mecanizar gracias al sistema operativo PICK. 


so OTROS LENGUAJES 


IO Estructura general del sistema 


El «núcleo» de PICK es su base de da- 
tos relacional, en torno a la cual funcio- 
na todo el sistema. Además, dispone de 
los siguientes elementos: 


1. Un lenguaje de consulta de acce- 
so a la base de datos, llamados ACCES. 
En este lenguaje las órdenes reciben el 
nombre de verbos, que designan las ac- 
ciones a realizar (por ejemplo, LIST, 
SORT...). En una orden se incluye el verbo, 
el nombre del fichero sobre el que actua 
el verbo, el criterio de selección y clasi- 
ficación u ordenacion, y los atributos y 
modificaciones del informe que se obtie- 
ne como salida. 


2. Un compilador de BASIC, modifica- 
do y adaptado para el desarrollo de apli- 
caciones de gestión. Tiene sentencias 
estructuradas, como CASE, IF... THEN... 
ELSE, FOR... NEXT, LOOP... WHILE, LOOP... 
UNTIL, FOR... WHILE y FOR... UNTIL, que faci- 
litan mucho el trabajo con este lenguaje. 

3. Un lenguaje, llamado PROC, para 


escribir y almacenar secuencias de ór- 
denes que son utilizadas muy frecuente- 
mente, y que pueden ser llamadas me- 
diante una orden simple (algo parecido 
a los ficheros .BAT de MS/DOS). 


4. Un intérprete de comandos, llama- 
do TCL (Terminal Control Languaje). Entre 


las órdenes que reconoce se encuentran 
las de crear nuevas cuentas para los 
usuarios, modificar la fecha y la hora, en- 
viar mensajes a otros usuarios, y todas las 
relativas a la gestión de ficheros (borrar, 
copiar...). 

En relación con los ficheros, en el siste- 
ma operativo PICK hay tres tipos, aunque 
los usuarios sólo se relacionan con dos 
de ellos: los ficheros de datos, y los fiche- 
ros diccionario, en los cuales se guardan 
las relaciones existentes entre los datos. 


Dentro de los ficheros diccionario hay 
tres tipos: 


— El diccionario del sistema, que es 
donde están catalogados los usuarios. 

— El diccionario maestro. Cada usua- 
rio tiene uno, en el cual se define el uso 
del sistema que puede hacer ese usua- 
rio. 

— El diccionario de fichero. A cada fi- 
chero de usuario se le asocia un diccio- 
nario de fichero en el cual se define su 
estructura general. 


5. Un «spooler» de impresoras. Sopor- 
ta varias colas de impresión, y se pueden 
controlar hasta 16 impresoras, no impor- 
ta de qué tipo sean (de margarita, matri- 
ciales, láser...). 


Además, PICK también dispone de otras 
utilidades encaminadas a facilitar el control 
de la información por parte de los usuarios. 


lA Partes componentes del sistema operativo PICK. 


